﻿<!--#include file="conn.asp"-->
<card id="main" title="超级浏览器">
<p>
<% 
dim us,ur,ur1,ur2,length,wstr,body
ur=Request.QueryString("us")
if ur="" then
%>
<a href="chakan.asp?us=<%=server.urlencode(request("us"))%>">查看源码</a>|<a href="INDEX.asp?">浏览首页</a><br/>
<a href="<%=ur%>">查看原址</a>
报时:<%=time%><br/><input size="7" type="text" name="us" value="<%=ur%>"/><anchor>进入<go href="go.asp" method="get"><postfield name="us" value="$(us)"/></go></anchor><br/>

出错了！你的网址输入为空，请从新输入！
<br/>-----------<br/>
<anchor>返回上级<prev/></anchor>
</p>
</card>
</wml>
<%
else
urt1=replace(ur,"http://","")
ura=replace(urt1,"/","")
if ura=urt1 then
ur1=urt1+"/"
else
ur1=urt1
end if
length1=Instr(ur1,"/")
length2=Instrrev(ur1,"/")
ur2=left(ur1,length1)
ur3=left(ur1,length2)
wstr = getHTTPPage(ur)
If 0 < 1 then
start = Instr(wstr,"<p")
over = Instr(wstr,"</card>")
body = mid(wstr,start,over-start)
body = replace(body,"'","""")
body = replace(body,"<a href=""/","<a href='/liul/go.asp?us=http://"&ur2&"")
body = replace(body,"<a href=""http://","<a href='/liul/go.asp?us=http://") 
body = replace(body,"<a href=""","<a href=""/liul/go.asp?us=http://"&ur3&"")
body = replace(body,"<go href=""/","<go href='/liul/go.asp?us=http://"&ur2&"")
body = replace(body,"<go href=""http://","<go href='/liul/go.asp?us=http://") 
body = replace(body,"<go href=""","<go href=""/liul/go.asp?us=http://"&ur3&"")
body = replace(body,"'","""")
body = replace(body,"&amp;","%26")
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","") 
body = replace(body,"</p>","")
body = replace(body,"<p>","")
if  body="" then
body="出错了！你的访问的网页失败，请从新输入！<br/>-----------<br/><anchor>返回上级<prev/></anchor>"
else
body=body
end if
%>
<a href="/liul/chakan.asp?us=<%=server.urlencode(request("us"))%>">查看源码</a>|<a href="/liul/INDEX.asp?">浏览首页</a><br/>
<a href="<%=ur%>">查看原址</a>
报时:<%=time%><br/><input size="7" type="text" name="us" value="<%=ur%>"/><anchor>进入<go href="go.asp" method="get"><postfield name="us" value="$(us)"/></go></anchor><br/>
<%=body%>
</p>
</card>
</wml>
<%
else
http5="../liul/go2.asp?us="&ur&""
Response.Redirect http5
End IF
End IF
%>

